From e5dc69afb60a29c85843349dc01288eb216ccdf4 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 15 Apr 2004 23:12:21 +0000 Subject: [PATCH] (bookmark-send-edited-annotation): Fix docstring. (bookmark-edit-annotation-mode): Add mode name. --- lisp/bookmark.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 67ae2c84865..3ed66f229a8 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -893,7 +893,8 @@ When you have finished composing, type \\[bookmark-send-annotation]. (make-local-variable 'bookmark-annotation-name) (setq bookmark-annotation-name bookmark) (use-local-map bookmark-edit-annotation-mode-map) - (setq major-mode 'bookmark-edit-annotation-mode) + (setq major-mode 'bookmark-edit-annotation-mode + mode-name "Edit Bookmark Annotation") (insert (funcall bookmark-read-annotation-text-func bookmark)) (let ((annotation (bookmark-get-annotation bookmark))) (if (and annotation (not (string-equal annotation ""))) @@ -902,7 +903,8 @@ When you have finished composing, type \\[bookmark-send-annotation]. (defun bookmark-send-edited-annotation () - "Use buffer contents (minus beginning with `#' as annotation for a bookmark." + "Use buffer contents as annotation for a bookmark. +Lines beginning with `#' are ignored." (interactive) (if (not (eq major-mode 'bookmark-edit-annotation-mode)) (error "Not in bookmark-edit-annotation-mode")) -- 2.30.2